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COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


OFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
oie WITH THE TERMS OF SUCH LICENSE AND ans re 


:* * 
:* * 
:* * 
:* w 
:® © 
* S «© 
e I ® 
® S * 
. S_THEREOF MAY NOT BE oye OR OTHERWISE MADE AVAILABLE TO ANY * 

* 
;# TRANSFERRED. . 
:® a 
;* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
;* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
;* CORPORATION. * 
:* ® 
:* e 
:* * 
:f * 
:* t 
* . 


DIGITAL ASSUMES NO RESPONS . 


IBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH 


L 
S NOT SUPPLIED BY DIGITAL. 


3 TITS IIIT IPP rrr r rit iit iit iitiiiiiiiiiiiiiiiiiiiiig) 
; : FACILITY: SATS SYSTEM SERVICE TESTS 


; ABSTRACT: The SATSSSO9 module tests the execution of the following 
VMS system services: 


$FAO 
$F AOL 


ENVIRONMENT: User and Kernal mode image. 
: Needs CMKRNL orivitoge and “dynamically acquires other 
3 privileges, as neede 


: ; AUTHOR: Larry D. Jones, CREATION CATE: SEP, 1979 
: S MODIFIED BY: 


v03-001 LD D. Jone 17-Sep-1980 


Larr 
d to conform to new build command arecaduren: 


o-_— 


| 
CNET ee __ 
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-SBTTL DECLARATIONS 
MACRO LIBRARY CALLS 


LIBRARY /SYSSLIBRARY; STARLET .MLB/ 
$SHR MESSAGES U UETP,116,<<TEXT, INFO>> ; UETPS_TEXT definition 


( SUE TPDEF ; UETP message definitions 
0 o3 ; Equated symbols 
6 e 9 ° 68 WARNING . 9 ; warning severity value for msgs 
4 SUCCESS = 3 succes 
00 0 § 65 ERROR = ; : ee ia) fe ef 
00000 08 INFO = 3 laterastion ne - cl Roe 
0 4 09 e3 SEVERE = 4 ; fatal ’ - e.% 
000 000 : NUL = 0 
Mitta 3 % CR = g 
OOO0000A 00 71 LF = 10 
0000009 000 i; TAB = 09 
00000C 009 i FF = 12 
4 ie 3 MACROS 
itd ig »~MACRO FAONTST CS,RS,RSL,T 
0000 78 IF NOT_EQUAL SLENGTHcrvPE) 
$000 «80 “$rAOL S OUTLEN © ULER, 
Ss 
0000 1 OUTBUF = WstEA - 
0000 ¢ PRMLST = W*PARAM 3 try 3 
0000 IF _FALSE 
44 4 MOVAL W*PL6+8,R10 ; set the arg pntr 
000 5 PUSHL #0 : push a dummy parameter 
44 $ CALLS #1 gu'gee SAVE ; Save a reg snapshot 
00 SFA cinste = W*CS,- 
0000 8 TLEN = W*LEN,- 
900 9 SUTBUE = W°BUFFER,- 
00 0 P1 = =-(R10),- 
rs 91 P2 = -(R10),- 
38 P5 = -(R10),- 
0 g P4 = -(R10)_- 
00 94 P5 = -(R10),- 
B 5 P6 = -(R10) ; try _S 
. 38 ROVAL W*PL6+8,R10 3; reset the parameter pntr 
09 a8 FAIL_CHECK SS$_NORMAL 3; check success 
LIST MEB 
100 MOVAL pig : set good Cote. adr 
101 MOVL en ; set yte coun 
1 § CALLS 0 w*B cue Ck B nosy results 
0 1 MOVAL wes. ret YPE'P+F AOS_ cirStR : set new cntrl str 
104 try : push a dummy parameter 
105 CALLS G_SAVE ; Save a reg snapshot 
1 § FAO ve! % “oee 8 TYPE 'P : try .G 
1 PAIL “UHEEK™ SS$_NORMAL ; check success 
108 LIST MEB 


~_— 
ee oe 


Sss 
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109 
B 1% 


CALLS #0,W*BUF_CHECK 
.NUIST MEB 
“ENDM = FAONTST 
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; check results 


a 


SAT 
v04 


SATS = SATS 
vousb00" DECLARA 


0000 


39 30 53 53 53 54 41 53 ge" 

53 53 53 54 41 53 seatanniccitnhee’ yf 
6E 75 67 65 62 89" 

6C 75 66 73 73 65 63 63 75 73 0" 


64 65 6C 69 61 66 80" 


21 20 74 73 65 54 39°010E0000' 
BEELER 
2E 64 65 6C 69 61 66 20 4C 55 21 20 
74 63 65 70 78 45 *O10E : 
HARPS R ELE ee 
4C 58 21 20 3D 2 
BERETA e eee 
ELS LOLCEEE: 


i 69 28 1 $F $2 coregoegguogcogg 
GE 20 6¢ 65 GE GE GT'GR ES cu’ ge es 
77 20.65 66 OF $9 Soroeogs 957500 
RES Re mew uy 
PE PCEE ELE 

1284 8 21 20 64 65 76 é) 3 


72 65 73 75 00000146'010E0000° 
4F 41 46 6" 


4C 4F 41 46 80" 


73 75 74 61 74 73 0000015B8'010E0000° 


a a) 
oo GN OMS w 


ror 
mw 


nmr 


— a — a a — —) 


ow fw 


mr 


MOOVO0S “Ww 1 PS P PM OOO 


Oo 


ed el ed ed ed ee ed eed eed eed ed md OOO OO 


QDI BB EE PMWM 0 BM HM HMMMOOOONS 


a ee ee 
Pr FHL FW 


ASTTMM > PS PMMAOLWOOMM WOOD —WIWNo 
fu w— OOON 


-PSECT RODATA,RD,NOWRT ,NOEXE,LONG 
TEST_MOD_NAME : 
eASCIC /SATSSSO9/ ; needed for SATSMS message 
TEST_MOD_NAME _D: 
~ASCIB /SATSSSO9/ ; module name 
TEST_MOD_BEGIN: ; start end and fail messages 
eASCIC § /begun/ 
TEST_MOD_SUCC: 
eASCIC /successful/ 
TEST_MOD_FAIL: 
eASCIC /failed/ 
CS1: ; failure messages 
ASCID \Test !AC service name !AC step ‘UL failed.\ 
CS2: 
-ASCID \Expected !AS = !XL received 'AS = !XL\ 
CS3: 
-ASCID \Expected !AS'UB = !XL received !AS'UB = !XL\ 
CS4: 
-ASCID \Required channel not received. \ 
CSS: 
-ASCID \Mode was !AS.\ 
CS6: 
-ASCID \Expected byte offset !'UB(10) = !XB(16) received !XB(16).\ 
UM: ; mode message 
1 -ASCID \user\ 
, eASCIC /FAO/ ; service names 
FAOL: 
eASCIC /FAOL/ 
EXP: 
-ASCID \status\ 
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MSGVEC: 
-LONG 3 ; PUTMSG message vector 
“LONG UETPS_TEXT 

»LONG 

ADDRESS MESSAGEL 


STR1: ; string variables 
eASCIC /TEST/ 

STR2: 
-ASCII (Test /au> 
STR2L=.-STR 


STR3: 
eASCID /TEST/ 


PL1: 3; parameter List 
ADDRESS STRi 
«ADDRESS STR1 
PL2: 
LONG STR2 
ADDRESS STR 


PL3: 
-ADDRESS STR 
«ADDRESS STR 


PL4: 
-LONG 0 ; smallest byte value 
PLS «LONG “XFF ; largest byte value 
: «LONG 0 ; smallest word value 
ps «LONG “XFFFF ; largest word value 
-LONG 0 : smallest long word vaiue 
PL? «LONG =1 ; largest long word value 
; «LONG 1 ; a one 
-LONG 0 ; a zero 
Fcst: ; control strings 


[ADDRESS . +4 
TASCII]  /ALACB!=!2(AC)C!2(=) !3ACD!=!2(3AC)/ 


eASCIL = /ELADE!20=)!2(AD) G14 (=) 1 SADH! 20) !203AD) 14 (-)/ 


eASCIL /TLAPIS20+) !2CAF KEG (=) !SAFL E20) !203AF)/ 


eASCII = /MEASN!=!2(AS)0!2(-) ! SASP!=!2(3AS)Q/ 


FCSIL=.-FCS1-8 


FCS2: 
-LONG FCS2L 
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yOu. 008 DECLARATIONS Breer 1bbe Bassaiee LOE Sees Eats MoCoCgan:: = Pane 
48 57 53 33 21 1 47 29 044A 
TOCEEERLE 
uc 53 28 $¢ 21 20 gi bad 149 O45F 222 SASCIL /L!SLU!=!2(SL)K!2C*) !3SLL!=!2(3SL)M/ 
4 &¢ 1 2 ¢0 38 3¢ 21 ds 29 0468 
4d 29 Sc §3 1 a0.2] 04 
0000064 0481 3 ceg7,  PeSOLE--FCS6~8 
St 21 42 26 21 41 90000489" 1050009" 0481 5 " ASCID \A!/B!_C!*D! !E!%SF!UB!=G!%SH!S#Al !#eB!-J!4!XBK\ 
1 46 33 25 21 45 21 2 44 SE 1 43 O4BE 
A 35 21 48 §3 25 21 br 20 21 $2 55 496 
1 28 21 4A 2d 31 42 2A 145 41 04 
4B 42 58 0483 
4B 226 FSB: 
21 44 25 33 32 21 Q00904BE*010E0090" 0486 SASCID /!23%D!=!11%T/ 
54 25 31 31 21 2D 04C4 
O4CA 8; 
4CA 9 RS1: ; resultant strings 
45 54 54 55 45 54 42 54 53 45 54 41 OUCA 0 ASCII /ATESTBTESTTESTCTESDTESTES/ 
45 54 53 45 54 44 53 45 54 43 Se 53 0406 
00 54 53 45 $4 46 00 54 53.45 54 28 Bees 231 ASCII /ETEST/<NUL>/F TEST/<NUL>/TEST/<NUL>/GTESHTESTES/ 
45 54 48 53 45 54 47 00 34 93 45 94 Q4EF 
DE 54 53 45 56 4A 2E 54 O% 48 24 28 Dorr 232 LASCIE /ITEST.JTEST. TEST .KTESLTESTES/ 
45 54 4C 53 45 54 4B 2E 34 $3 45 54 0508 
45 54 54 53 45 54 4E 54 83 22 bt 2 0518 233 ASCII /MTESTNTESTTESTOTESPTESTESQ/ 
45 94 53 45 54 50 53 45 54 4F 54 53 0527 
00000068 BE i aso, RSTEE “RSI 
43 37 37 33 30 30 30 42 30 50 30 41 gese §9g "S22 cea, /40008000377C00D0077/ 
7 37 30 30 44 30 30 0541 
30 $0 30 30 46 30 30 30 30 30 30 45 0548 237 ASCII /£000000F 0000001777776000H000777/ 
30 50 50 47 37 oF Rt to 80 8) 80 th peed 
30 30 30 30 30 30 30 30 30 30 30 49 0567 238 ASCII /100000000000s0000000000037777777777K000L000777M/ 
$0 30 30 $0 30 30 50 30 30 $0 30 4A 0573 
4B 37 37 37 37 37 37 37 ? $7 33 097k 
4p 37 37 37 30 30 30 4c 30 30 30 0588 
00000061 0596 a ass, Sake +782 
30 44 30 43 46 46 30 30 42 30 30 41 396 41 , -ASCII /AOQOBOOFF CODOF / 
46 46 30 30 30 30 46 30 30 30 30 28 B2A$ ge ASCII /EQOOOF OOOOF FFF GOOCHOOOFFF/ 
46 46 30 30 30 48 30 30 30 47 46 46 O5AF 
30 30 4A 30 30 30 30 30 30 30 30 49 sec 243 LASCIL /100000000J00000000F FFF FFFFKOOOLOOOFFFM/ 
46 46 46 46 46 46 30 30 30 30 $0 30 058 
46 46 30 30 30 4c 30 30 30 4B 46 46 0504 
0000004¢ is age, RSSEETRSS 
44 30 30 30 43 55 35 32 42 ; 41 3 46 ~—~—S—s*«CS ASC «= 7A0BOZS5C000D000255/ 
30 30 47 35 33 35 2 6 $0 46 to Bee on? ASCII /E0F065535G000HO00###/ 
DA 2A 2A 30 48 30 0600 


ska 


2k 2h 38 $8 35 00 38 


44 30 20 20 43 35 
20 20 47 35 33 35 
A 2A 


32 37 36 39 34 39 
2A 2A 30 20 20 4C 
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-ASCII 


RS4L=.=RS4 

eASCIT /A0BO255C OD 0255/ 

eASCII /EOF065535G OH Oeee/ 
eASCIIL = /10J04294967295K OL OeeeM/ 


RSSL=.=-RS5 

eASCII /AOBO-1C OD 0 -1/ 

eASCII /EOF9=1G OH 0 -1/ 

ASCII /10J0-1K OL 0 -1M/ 

RS6L=.=-RS6 

eASCIIT = /A/<CR><LF>/B/<TAB>/C/<FF>/D! ESF 1GHAAAAAIBJOOK/ 


RS7L=.=RS7 


SAT S3809 
v04-000 


00000000 


74 73 69 67 65 72 sesetciate * © 


00000000 
00000000 


00000044 
00748009 
00000000' 
00000019" 

00 
00000000 
00000000 
00000065 
00000600 
00000000 
010E0000' 
20 72 65 
00000000 


00000050 
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00000108 


00000000 
00000088" 


00000000 


00000100 
00000088 ' 
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00000084 
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64; 

92 -SBTTL R/W PSECT 

96 -PSECT RWDATA,RD,WRT,NOEXE,LONG 
68 PID: 

8 -LONG 0 : 
0 CURRENT_TC: 

71 * 0 ; 
4 - ALIGN LONG : 
73 REG_SAVE_AREA: 

74 eBLKL 15 : 
75 MOD_MSG_CODE: 

6 -LONG UETPS_SATSMS : 
77 TMN_ADDR: 

78 ADDRESS TEST_MOD_NAME 

79 TMD_ADDR: 

80 ADDRESS TEST_MOD_BEGIN 

4 PRVPRT: 

¢ -BYTE 0 3 
83 PRIVMASK: 

84 -QUAD 0 : 
85 CHM_CONT: 

86 LONG 0 ; 
87 RETADR 
88 BLKL 2 3 
89 STATUS 
90 -LONG 0 
91 MODE 
38 LONG 0 3 
93 REG 
94 ASCID \register R\ 
95 REGNUM: 
96 -LONG 0 ; 
97 MSGL 
98 -LONG 80 3 
99 -ADDRESS BUF1 
00 BUF: 
01 -BLKB 256 
86 BUF 1 
0 -BLKB 80 
04 LEN: 
05 -LONG 0 
88 -ADDRESS BUF 

TLE 

08 -LONG 0 
09 BUFFER: 

10 -LONG 256 

11 -ADDRESS BUF 

i PAR 

1 A=PL1 

14 REPT 8 

15 -ADDRESS A 

18 A=A+4 

4 -ENDR 

18 CTRSIR: 

1 «LONG 132 3 


ORT. Sh = 


AX/VMS Macro V04-00 Page 9 
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PID for this process 


ptr to current test case 
put it on a long word boundry 


test module message code for putmsg 


protection return byte for SETPRT 
priv. mask 


; change mode continue address 


returned address's from SETPRT 


current mode string pointer 


register number 


register save area 

buffer desc. 
| 
| 
j 
| 


| 
| 
| 
same as above 


00000000 00000000 


, 
A7 
af 
e5 
02B7 
02E7 
02E7 
O2FB 
02F 
os03 
00000018 0 
i444 $00 


0 
0 
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4 04:22:34 (CUETP.SRCJSATSSSO9.MAR; 1 (1) 
+4 
132 
3; message desc. 
0 3; service name pointer 


3 ; PUTMSG message vector 
ge rre, Fees 


FCS1,LEN,BUFFER,PL1,PL1+4,PL2,PL2+4,PL2+8,PL2+12,PL3,PL3+4 
FCS1,LEN,BUFFER,PARAM 


0 ; time parameter 


oOooooo 


Ss 


ScEs 


: 
: 


SOooooooooooooo 
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SEP=1984 


-PSECT SATSSSO9,RD,WRT,EXE,LONG 
~SBTTL SATSSSO9 


+ 
FUNCTIONAL DESCRIPTION: 

After performing gene initial housekeeping, such as 
Bg haa, the module begin message and eh, needed privileges, 
the system services are tested in each of their normal conditions. 
Detected failures are identified and an error message is printed 
on the terminal. Upon completion of the test a success or fail 
message is printed on the terminal. 
CALLING SEQUENCE: 

$ RUN SATSSSO9 ... (DCL COMMAND) 
INPUT PARAMETERS: 

none 
IMPLICIT INPUTS: 


none 


; OUTPUT PARAMETERS: 


none 
IMPLICIT OUTPUTS: 


Messages to SYSSOUTPUT are the only output from SATSSSO9. 
They are of the form: 


ZUETP-S-SATSMS, TEST MODULE SATSSSO9 BEGUN ... (BEGIN MSG) 
RUETP=S=SATSMS, TEST MODULE SATSSSO9 SUCCESSFUL ... 

RUETP-E-SATSMS, TEST MODULE SATSSSO9 FAILED ... (EN 

RUETP=I-TEXT, ... (VARIABLE INFORMATION ABOUT A TEST MODULE FAILURE) 


COMPLETION CODES: 


The SATSSSO9 routine terminates with a SEXIT to the 
operating system with a status code defined by UETPS_SATSMS. 


SIDE EFFECTS: 


none 


TEST_START SATSSSO9 ; let the test begin 


UETP.SRCJSATSSSO9.MAR; 1 
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0000 LENTRY SATSSSO9,0 | 
0004" cf D4 LRL  W*CURRENT_TC 
0 oD $ PUSHL #0 
QO00'CF DF PUSHAL W*TPID 
00000000 ' GF . FB f CALLS AS sep 
00000000 ' GF 78 1 ALLS #0,G*SYSSHIBER 
00 CF 7F OO1A PUSHAQ W*fEST_MOD_NAME_D 
00000000 ' GF 1 4 a CALLS #1,G*SYSS$SETPRN 
Oosc'ce OOF EF OBE 058 MOVAL WATEST MOB SUCC.W“TMD_ADDR 
0044'CF 03 00 1 ro F jNsy ’ YECESS #0 #8 "MOD ASG. CODE 
OsB6'cF 01 FB O88 CALLS #1,W*REG_SAVE 
03D STPO: 
030 93 -SBTTL FAO TESTS 
03D 94 3+ 
8 D 95 ; 
03D 38 3; SFAO tests 
003D we 3 
it 98 ; test ascii directives 
0030 99 ; 
0030 400 ;- 
O2A3°CF O16A'CF DE 003D 401 MOVAL W*FAO,W*SERV_NAME ; set service name 
0069°CF Bae ce DE 0044 rh MOVAL W*UM,W*MODE 3; set the mode 
5A O1A7"CF DE 0048 40 MOVAL W*PLS+8,R10 3; set param pointer 
00 oD 005 404 PUSHL # 3; push a dummy parameter 
O8B6'CF O01 FB 005 405 CALLS #1,W*REG_SAVE 3; Save a reg snapshot 
0057 406 $FAO_S CTRSTR ="W*FCS1,- 
0057 407 UTLEN = W“LEN,- 
9097 408 OUTBUF = W*BUFFER,- 
057 409 P1 = -(R10),- 
0057 410 P2 = -(R10),- 
0057 413 P3 = -(R10),- 
0057 tig P4 = -(R10),- 
0057 41 P5 = -(R10),- 
Bnes 414 P6 = -(R10),- 
057 415 P7 = =-(R10),- 
057 416 P8 = -(R10) 3 try .§ 
OO28'CF O187"CF DE OO7A 417 MOVAL W*PL1,W*REG_ SAVE_AREA+32 ; fix The reg_save_area for R10 
081 418 FAIL_CHECK SS$_NORMA ; check success 
00000000'8F DD 0081 PUSHL ~ #SS$ NORMAL 
8CO'CF 01 FB 0087 CALLS — #1,W™REG_CHECK 
§ 088 * CF DE 3 C 419 MOVAL W*BUF,R 3; set buffer adr 
CA'CF OD 1 420 MOVAL W*RS1,R 3; set good data adr 
0068 8F OD 096 421 MOVL #RSIL,RB ; set byte count 
0 77°CF 0 F 9 4 ‘ CALLS #0,W°BUF_CHECK : check results 
O2c7"CcF 0187" CF 2 A2 4 MOVC3 #32,W*PLT, W“FAOP+FAOS_P1 : set the param List 
0 OD AA 4246 PUSHL 3; push a dummy param 
O8B6'CF O01 FB AC 425 ALLS #1,W*REG_SAVE ; save a reg snapshot 
Et : $FAO_G wW*FAOP : try 
A 4 FAIL_CHECK SS$_NORMAL ; check success 
0000 * BF 0D A PUSHL #SS$_NORMAL 
oes ‘CF 1 FB co CALLS #1 ,W*REG_CHECK 
"CF FB ¢ 4 § CALLS #0,W*BUF_CHECK ; check results | 
CA 4 3+ 
CA 450; | 
} 


0004 ' CF 


0886' CF 
O2C7"CF O1A7°CF 


- ogy? cr 


00000000'GF~ i] 
000000 


0877" 


on 
bs Da | 


0004 ‘CF 
0886 ' CF 


5A O1BF CF 
0886'CF 


& 
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i ; test octal conversion, zero filled directives 

433 :- 

434 NEXT_TEST 

STP1: 

MOVL #1,W*CURRENT_TC 
PUSHL #0 
CALLS #1,W*REG_SAVE 

a3 move? . #24,W°PL4,W*FAOPFFAOS_P1 3; set new parameters 

4 FAONTST EeSé RSe RSL 
MOVAL W*PL6+8,R10 ; set the arg pntr 
PUSHL #0 ; push a dummy parameter 
CALLS #1,W*REG_SAVE 3; Save a reg snapshot 
PUSHL =(R10) 
PUSHL =-(R1 
PUSHL -(R10) 
PUSHL -(R10) 
PUSHL (R10) 
PUSHL =(R10) 
PUSHAQ “BUFFER 
PUSHAW W*“LEN 
PUSHAQ pat 
CALLS #$$T A HES nadia 
MOVAL W*PL6+8,R10 3 reset the parameter pntr 
PUSHL #SS$_NORMAL 
CALLS #1 WSREG_CHECK 
MOVAL W*RS2,R : set good data adr 
MOVL #RS2L RB 3; set byte count 
CALLS #0 BUF CHECK ; check results 
MOVAL W*FCS2,W™FAOP+FAOS_CTRSTR ; set new cntrl str 
PUSHL #0 ; push a dummy parameter 
CALLS #1,W*REG_SAVE ; save a reg snapshot 
CALLG W*FAOP,G™SYSSFAO 
PUSHL #$S$_NORMAL 
CALLS #1,W"REG_CHECK 
CALLS #0,W*BUF_CHECK ; check results 

i393 

ree 3; test hex conversion, zero filled directives 

Prk :- 

44 NEXT_TEST 

STP2: 

MOVL #3,W*CURRENT_TC 
PUSHL  ] 
CALLS #1,W*REG_SAVE 

444 -LIST MEB 

445 FAONTST poss RSS. B85) 
MOVAL W*PL6+8,R10 ; set the arg pntr 
PUSHL @# ; push a dummy parameter 
CALLS #1,W*REG_SAVE 3 save a reg snapshot 
PUSHL (R10) 
PUSHL -(R10) 
PUSHL -(R10) 
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7A DD 16F PUSHL (R10) 
7A OD 1 PUSHL =(R10) 
7A D 1 USHL -(R10) 
CF F 17 PUSHAQ W“*BUFFER 
CF F 17 PUSHAW “LEN 
Sf F 17D PUSHAQ W*FCS3 
9 FB 0181 CALLS $$T Farge 
F DE 0188 MOVAL W*PL6+8,R1 ; reset the parameter pntr 
Ff DD 1 PUSHL ar NORMAL 
1 FB QO! CALLS @# WSREG_ CHECK 
F DE 019 MOVAL W*RS3,R : set good data adr 
F 1) 19D MOVL #RSSL,R ; set Byte count 
0 i FB O1A4 CALLS #0 Wegue CHECK : check results 
O2BB'CF O2D1°CF DE O1A9 MOVAL W*FCS3,W™FAOP+FAOS_CTRSTR ; set new cntrl str 
DD O18 PUSHL #0 ; push a dummy parameter 
0886'CF 1 FB 018 CALLS #1,W*REG save ; save a reg snapshot 
00000000 ' GF 6287 ¢F FA 018 CALLG W*FAOP,G*SYSS$FAO 
00000000'8F oD 01C0 PUSHL #SS$_NORMAL 
O8CO'CF 4 FB 1€6 CALLS #1,W*REG_CHECK 
0877'CF O FB 0O1CB CALLS #0,W*BUF_ CHECK ; check results 
1D0 446 3+ 
1D0 447 ; 
01D0 448 ; test unsigned decimal, zero filled directives 
3108 449 ; 
100 450 ;- 
108 451 NEXT_TEST 
1D 
100 STP3: 
0004 'CF 02 dO Ht MOVL #3,W*CURRENT_TC 
00 DD 105 PUSHL 
0886 ' CF 01 FB 0107 CALLS #1,W*REG_SAVE 
1DC 13g -LIST MEB 
1DC 45 FAONTST Ae gad oy 
5A O1BF'CF ODE g1pe MOVAL W*PL6+8,R10 3; set the arg pntr 
0 DD O1E1 PUSHL #0 ; push a dummy parameter 
08B6' CF 1 FB O1E3 CALLS #1,W*REG_SAVE ; Save a reg snapshot 
A DD 0168 PUSHL (R19) 
7A OD 1EA PUSHL (R10) 
7A OD 1EC PUSHL =(R10) 
7A OD \ee PUSHL -(R10) 
7A =OD 1F PUSHL =(R10) 
7A D re USHL -(R10) 
1E7°CF F 1F USHAQ W*BUFFER 
1DB*CF F 1F8 PUSHAW W*LEN 
335D°CF F 1FC PUSHAQ W*FCS4 
00000000 * GF 09 =«FB ° CALLS  #$$T HEY ali 
5A 1BF°CF ODE MOVAL as +8,R1 3 reset the parameter pntr 
"SF ODD PUSHL ass NORMAL 
2 C Ff 1 F8 CALLS @# WREG_ CHECK 
SE2"CF oD 1 MOVAL W*RS4,R ; set good data adr 
58 oF D 1 MOVL #RS4L RB ; set byte count 
0877'CF_ 00 FB CALLS #0,W*BUF CHECK : check results 
O2BB'CF O33D°CF DE MOVAL WFCS4,W™FAOP+FAOS_CTRSTR ; set new cntrl str 
0 dD F PUSHL # ; push a dummy parameter 
08B6' CF 1 FB 1 CALLS #1,W*REG SAV ; Save a reg Snapshot 
00000000 ' GF 7. cF FA 6 CALLG W*FAOP,G™SYSSFAO 
000 "BF ODD F PUSHL #S5$_NORMAL 


sla? 
ae 


0004 ' CF 9 
0886" CF 


5A = O1BF'CF 
0886' CF i 
& 


0004 °CF 09 
0886 ' CF 1 
5A = O1BF ‘CF 

80 
0886'CF 1 


dO 
DD 
FB 


DE 
DD 
FB 


oO 
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CALLS #1,W*REG_CHECK 
CALLS #0,W*BUF_CHECK i; check results 


454 ; 

455 ; 

: ; test unsigned decimal, blank filled directives 
458 3 

13 


NEXT_TEST 
STP4: 

pov. #4 ,W*CURRENT_TC 
CALLS Ay W*REG_SAVE 

460 LIST MEB 

461 ERONTST Aas T RSS, + tye 

+8,R10 ; set the arg pntr 

PUSHE ; oush a dummy parameter 
CALLS #1,W*REG_SAVE ; save : reg snapshot 
PUSH -(R10) 
PUSHL =-(R1 
PUSHL -(R10) 
PUSHL =(R10) 
PUSHL =(R10) 
PUSHL =(R10) 
PUSHAQ Ry A 
PUSHAW 
PUSHAQ ure css 
CALLS #$$T Ata 
MOVAL W*PL6 ; reset the parameter pntr 
PUSHL #SS 
CALLS A n- CHECK 
MOVAL 3; set good data adr 
MOVL aRS tg : set byte count 
CALLS #0 rth check results 
MOVAL wW*FCS UUTFAOP SF AOS. cTRsth ; set new cntrl str 
PUSHL x ; push a dummy parameter 
CALLS REG_SAVE ; save a reg snapshot 
CALLG oF AOF G™SYSS$FAO 
PUSHL #SS$_NORMAL 
CALLS #1,W™REG_CHECK 
CALLS 40, *W*BUF ~ CHECK ; check results 

tes 3 

485 | 3 test signed decimal, blank filled directives 

46 

46 NEXT_TEST 

STPS: 

ov a oW*CURRENT_TC 
CALLS #1,W*REG_SAVE 

46 LIST MEB 

46 FAONTST At, Ti RS6,RS6 


W*PL6+8,R10 ; set the arg pntr 
PUSHE #0 : push a dummy parameter 
CALLS #1,W*REG_SAVE 3; Save a reg snapshot 


CR 

csi 
ty 
cs 

CS4 
css 
CS6 
CTR 
CUR 
ERR 
EXP 
FAQ 
FAQ 
FAQ 
FAQ 
FAQ 
FAO 
rAd 
FAQ 
FAO 
FAO 
FAQ 
FAQ 
FAQ 
FAQ 
FAQ 
FAQ 
FAQ 
FAQ 
FAQ 
FAC 
FAC 
FAC 
FAC 
FAC 
FAC 
FAC 
FAC 
FAC 
FAC 
FAC 
FCS 
FCS 
FCS 


sla 


o- 
on, 
cs Dee] 


at 
Ww 
<= 


¢ 

554 
08 ge 
0877'CF 
0006"CF 06 
ogB6'cr 01 


ae 

0877°CF 00 
8 ‘CF 81° CF 
O5¢ 3 i CF 


00 
0886 'CF 1 


= SAT 
FAO T 


dO 
DD 
FB 


DD 
FB 
FB 
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PUSHL (R10) | 
PUSHL =(R10) 
PUSHL -(R10) 
PUSHL =(R10) 
PUSHL =(R10) 
USHL (R10) 
PUSHAQ W*BUFFER 
PUSHAW W*LEN 
PUSHAQ W*FCS6 
CALLS #$$T of sr 5SFA0 
MOVAL W*PL6+8,R1 ; reset the parameter pntr 
PUSHL —#SS$_NORMAL 
CALLS) = #1, REG _CHECK 
MOVAL W*RS6,R ; set good data adr 
MOVL #RSOL RB ; set byte count 
CALLS  #0,W*BUF_CHECK : check results 
MOVAL W*FCS6,W"FAOP+FAOS_CTRSTR ; set new cntrl str 
PUSHL ; push a dummy parameter 
CALLS #1,W*REG_ SAVE ; save a reg snapshot 
CALLG W*FAOP,G™SYSS$FAO 
PUSHL #SS$_NORMAL 
CALLS #1,W*REG_CHECK 
z CALLS #0,W*BUF_CHECK 3 check results 
; test output string formatting and parameter interpretation directives 
NEXT_TEST 
STP6: 
MOVL  #6,W*CURRENT_TC 
PUSHL 
CALLS OU WREG_SAVE 
SFAO_S CTRSTR = wFCS7,= 
OUTLEN = W*LEN,- 
OUTBUF = W*BUFFER,- 
Pl = W*PL7,- 
re = W*PL7+4 3 try 
FAIL_CHECK SS$_NORMAL 
PUSHL ~ #SS$_NORMAL 
CALL #1 ,W*REG_CHECK 
MOVAL ym oR7 3; set good data address 
VL #RS7L,RB ; set byte count 
CALLS #0 wegur CHECK 3; check results 
MOVAL W*FCS7,W™FAOP+FAOS CTRSTR > set new cntrl string 
MOVL W*PL7,W*FAOP+FAOS Pi ; set new parameters 
MOVL  W*PL7+4,W*FAOP+FAOS_P2 
PUSHL a9 ; push a dummy parameter 
CALLS) #1,W*REG_SAVE 3 save a reg snapshot 
$FAO_G w*fe : try 6 
FAIL_CHECK SS$_NORMAL ; check success 
PUSHL 7 te NORMAL 
CALLS #1,W"REG_CHECK 
CALLS #0,W*BUF_CHECK ; check results 
| 
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D 495 ; test 2D and &T directives 
Dd $38 ; 
1) 49 + ae 
4 498 NEXT_TEST 
i) STP7: 
0004 'CF 7 #00 MOVL #7 ,W*CURRENT_TC 
0 OD C PUSHL #0" 
0886‘ CF 1 £8 C CALLS AP Aa SAVE 
C9 499 SGETTIM_S TIMADR=W*P i; get a binary time 
D4 0 SASCTIM_S TIMBUF =U*RS 7 
D4 1 Sy pt L8,- 
D4 § TIMLEN ats ; make it ascii for result string 
0322'CF tH as CF oe 28 E9 MOVC #11 “aS nh W*RS8+8+23 3; copy the time parameter 
O3°CF C Fl 4 ADDL #i1.WeR 3; fix the descriptor 
By DD Fe 5 PUSHL a i; push a dummy parameter 
0886‘ CF 1 FB F $ CALLS 1,W*REG_SAVE ; save : reg snapshot 
FD $FAO_S CTRSTR . sur ess, - 
FD : SUTLEN 
FD OUT BUF = : - 
FD 9 s try _§ 
416 1 FAIL_CHECK $$8_NO 3 check success 
‘SF DD 0416 PUSHL "OSS8_NO 
9 cores 01 FB 1¢ CALLS i," REG C CHECK 
3 4 43 1 3 MOVAL W*RS “y R7- ; set good data adr 
58  O1E $f D 426 1 MOVL w*TL ; set byte count 
0877°CF FB 04 14 CALLS #0 uur ¢ 3; check results 
t55 BY 4B6'CF ODE 15 MOVAL wares Lee ASS eFAOS CTRSTR ; set cntrl str address 
02C7'CF 2FB'CF DE 04 18 MOVAL yor W*F AOP+F AO $_P1 ; set parameter List 
30 DD 04 1 PUSHL 3 push dummy param 
0886' CF 1 FB 4 18 caus At W*REG_SAVE ; Save a reg snapshot 
4 319 $FAO_G w*fAOP > try 
44E 20 PAIL? CHECK SS$_NORMA 3; check success 
909 ‘BF ODD 4E ert ss NORMA 
O8CO'CF 1 FB 0454 Sa ‘* eches. CHECK 
0877'CF ee 459 521 CALL i, WBuF : check results 
OlEF*CR O187°CF 20 28 0456 522 MOV ou" PLT US BARAM > set FAOL parameters 


3 | 
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4 4 .SBTTL FAOL TESTS 
& 5 3+ 
4 § 3 
rh 3 SFAOL tests 
46 § 3; test ascii directives 
rh 0; 
t ) if NEXT_TEST 
16 . 
466 STP8: 
0004'CF 08 DO 0466 MOVL #8 ,W*CURRENT_TC 
0 ODD 0468 PUSHL # 
0886'CF 1 FB 198 ALL #1,W*REG SAVE 
O2A3'CF O14E'CF DE 04 é 3 MOVAL  W*FAOL,W*SERV_NAME ; set service name 
Bee 4 SFAOL_S CTRSTR = w*FCS1,- 
479 5 OUTLEN = W*LEN,- 
479 $ UTBUF = W*BUFFER,- 
479 2 PRMLST = W*PARAM z 
490 8 FAIL CHECK SS$_NORMAL ; Check success 
00000000'8F DD 0490 PUSHL ~ #SS$_NORMAL 
seat 01 FB Beas CALLS #1,W*REG_CHECK 
O4CA'CF DE 04 539 MOVAL W*RS1,R7 3 set good data adr 
58 00000068 8F 00 ey 40 MOVL #RSIL,RB 3; set byte count 
0877'CF 00 FB Q4A 41 CALLS #0,W*BUF_CHECK : check results 
00 OD O4AC $g PUSHL # 3 push a dummy param 
O8B6'CF O01 FB beng 4 #1 ,W*REG_SAVE 3; Save a reg snapshot 
0483 544 SFAOL_G W*FA t try 
048C 545 FAIL_CHECK SS$_NORMAL ; check success 
00000 "BF DD 048 PUSHL #SS$_NORMAL 
O8CO'C 01 FB et: CALLS #1 ,W*REG_CHECK 
0877"CF OO F 4C 326 CALLS #0,W*BUF_CHECK 3 check results 
rh 328 y 
rt}: 509 ; test octal conversion, zero filled directives 
pace 2) :- 
acc 552 NEXT_TEST 
4CC 
4CC STP9: 
0004 'CF 09 oO O4CC MOVL #9 ,W*CURRENT_TC 
oF DD ott PUSHL # 
peae cE 1 Ff 403 CALLS #1,W*REG SAVE 
OIEF*CE O1A7°CF 1 2 4D 53 MOVCS #24,W°PL4,W*PARAR 3 set new parameters 
DD O04E 54 PUSHL ; push a dummy param 
0886" CF 1 FB 0Q4E 55 CALLS  #1,W*REG_SAVE 3; Save a reg snapshot 
4E 228 LIST MEB 
4E7 5 FAONTST FCS2,RS2,RS2L,L 
1EF°CR DF 04E7 PUSHAL W*PARAM 
1€7°CF F 4EB PUSHAQ W“BUFFER 
be F 4EF PUSHAW W*LEN 
265'CF F ret PUSHAQ W*FCS2 
‘GF FB O4F CALLS #4,G*SYSSFAOL 
"BF DD O4FE PUSHL # NORMAL 
9 cO'CF 1 FB 0504 CALLS @# WAREG_ CHECK 
335° CF DE 0509 MOVAL woks2.R ; set good data adr 
58 18F OD 50E MOVL #RS2L,R8 : set byte count | 
| 
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CALLS #0 ,W°BUF CHECK 
MOVAL  wW*FCS2,W*FAOLP+FAOS_CTRSTR 
PUSHL #0 ; 
CALLS #1,W*REG_S 


AVE 
CALLG W*FAOLP,G*SYSSFAOL 
#SS$_NORMAL 

CALLS #1,W*REG_CHECK 
CALLS #0,W*BUF-CHECK 


; test hex conversion, zero filled directives 
j NEXT_TEST 


MOVL  #10,W*CURRENT_TC 
PUSHL # 
#1 ,W°REG_SAVE 
LIST MEB 
FAONTST FCS3,RS3.RS3L.L 
PUSHAL W*PARAM 
PUSHAG W°BUFFER 


WAL 
PUSHAQ W*FCS3 
CALLS #4 . oe 


W 
#RSSL 
#0,W* 
CALLS #1,W*REG_SAVE 
CALLG W*fAOLP,G*SYSSFAOL 
#SS$_NORMAL 
CALLS #1,W*REG_CHECK 
CALLS #0,W*BUF_CHECK 
: test unsigned decimal, zero filled directives 


NEXT_TEST 


MOVE #11 ,W*CURRENT_TC 
CALLS #1,W*REG_SAVE 


.LIST MEB 
FAONTST FCS4,RS4,RS4L,L 
PUSHAL W*PARAM 


FCS4 
CALLS geek prceenet 


AX/VMS Macro V04-00 
UETP.SRCJSATSSSO9.MAR; 1 


; check results 

3 set new cntrl str 
push a dummy parameter 
; Save a reg snapshot 


; check results 


R8 
BUF CHECK ; check results 
MOVAL W*FCS3,W*FAOLP+FAOS_CTRSTR ; set new cntrl str 
; push a dummy parameter 
; save a reg snapshot 


3; check results 


a — — 
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= SATS SYSTEM SERVICE TESTS (SUCC S.C.) 16-SEP-1984 01:43:09 VAX/VMS Macro v04-00 Page SA’ 
FAOL TESTS mi iets 7 84:33:92 UETP.SRCJSATSSSO9.MAR; 1 ° 2) vo 
cO'CF 01 FB D CALLS #1,W*REG_ CHECK 
Ose "CF 43 pe MOVAL Ohea ne 3; set good data adr 
58 0 40 8F OD DA MOVL #RS4L,RB 3; set byte count 
F 00 FB 0561 CALLS #0,W*BUF_CHECK : check results 
O2EB'CF 33D°CF ODE E6 MOVAL W“FCS4,W"FAOLP+FAOS_CTRSTR ; set new cntrl str 
agree SP PR HEE BUNS FY vngcagave, | ites eaTicaaiet 
3 Save a reg snapsho 
00000000 ' GF Oper cr FA O5F4 CALLG W*FAOLP,G*SYSSFAOL a ae 
00 00000'SF oD O5F PUSHL #SS$_NORMAL 
08C ‘CF 01 FB 06 CALLS #1 ,W*REG_CHECK 
0877'CF OO FB Og : i 6 CALLS #0,W*BUF_CHECK 3; check results 
D 575: 
0600 i 3 test unsigned decimal, blank filled directives 
0600 § 3 . 
be55 578 ;:- 
be D 579 NEXT_TEST 
600 
0600 STP12 
0004'CF 0c 0 be98 MOVL #12,W*CURRENT_TC 
00 DD 0612 PUSHL @# 
O8B6'CF 01 FB 0614 #1 ,W*REG_SAVE 
+b 580 -LIST MEB 
619 581 FAONTST FCSS,RS5,RSSL,L 
O1EF ‘CF F 0619 PUSHAL W*PARAM 
O1E7'CF F 0610 PUSHAQ W“BUFFER 
01DB° CF F be5e PUSHAW W“LEN 
O3A9'CF F 0625 PUSHAQ W*FCSS 
00000000'GF 04 FB 0629 CALLS #4,G*SYSS$FAOL 
00000000°8F DD 06 0 PUSHL #SS$_NORMAL 
ogco'er 01 FB 0636 CALLS #1,W*"REG_CHECK 
7 622°C DE 0638 MOVAL W*RSS,R7 : set good data adr 
58 0000004 pr DO 0640 MOVL #RSSL,R . ; set byte count 
0877'CF 00 FB 0647 CALLS #0 BUF CHECK : check results 
O2EB'CF O3A9"CF ODE eet MOVAL w*FCS »W™FAOLP+FAOS_CTRSTR 3 set new cntrl str 
00 DD 065 PUSHL #0 3 push a dummy parameter 
O8B6'CF O01 FB 0655 CALLS #1,W*REG_SAVE ; Save a reg snapshot 
00000000 ' GF O2E7'CF FA 065A CALLG w*FAOLP G*SYSSFAOL 
00000000'8F DD 0663 PUSHL #SS$_N L 
O8CO'CF 01 FB 0669 CALLS #1,W*REG_CHECK 
0877°CF 00 FB 066 CALLS #0,W*BUF_CHECK ; check results 
067 5 ; 3+ 
067 583 ; 
bes 2 : 3 test signed decimal, blank filled directives 
bers a9 
of NEXT_TEST 
67 STP13: 
0004 'CF OD 0 67 MOVL #13,W*CURRENT_TC 
by DD 067 PUSH 
ospe'cr 01 FB 067A CALLS #1,W*REG_SAVE 
67F 288 -LIST MEB 
67F 9 FAONTST FCS6,RS6,RS6L,L 
1EF'CF OF 67F PUSHAL W*PARAM 
1E7°CF F O83 PUSHAQ W“BUFFER 
1DB'CF 3F 6 PUSHAW W*LEN 


EE sesso 
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SATSSSO9 = SATS SYSTEM SERVICE TESTS (suce S.C.) 16-SEP-1984 01:43:09 VAX/VMS Macro v04-00 Page 
v04- FAOL TESTS = oer 1382 8:53:92 UETP.SRCJSATSSSO9.MAR; 1 . 4, 
0415'°CF 7F 688 PUSHAQ W*“FCS6 
0000000 mt 4 FB Q68F CALLS #4,G*SYSS$FAOL 
0000000'8F DD 0696 PUSHL aR NORMAL 
9 CO'CF 1 FB 4 CALLS geen gpecnecek 
62'CF 43 A MOVAL ; set ood data adr 
4 oO 6A MOVL PRSOL R8 ; set byte count 
0877'CF 00 FB O6A CALLS #0,W*BUF_ CHECK ; check results 
O2EB' CF 415'CF DE 6A MOVAL wes. U*FADLP+FAOS. CTRSTR ; ; set new cntrl str 
DD 068 PUSHL “9 : push a dummy parameter 
O8B6'CF 01 FB 0687 CALLS ; Save a reg snapshot 
00000000'GF 02€7° FA 068 CALLG SAF AOLES g SY SSF AOL 
00000000'8F DD 06C PUSHL 4 S$_NORMAL 
O&CO'CF 1 FB cB ALLS UFREG. CHECK 
0877'CF O00 FB rt CALLS 50° W*BUF — CHECK 3; check results 
OIEF'CF O1BF'CF DO 0605 590 MOVL  W*PL7,W*PARAM ; set the new params 
O1F3'CF 01C3'CF dO peng 591 MOVL WPL 730, USPARAM+ 
Oees 898 | 
dees 230 ; test output string formatting and parameter interpretation directives 
Oee3 596 ;- 
06E 597 NEXT_TEST 
et 
06E STP14 
0004 'CF OE DO 06E3 MOVL #14,W*CURRENT_TC 
00 DD Roee PUSHL “9 
08B6'CF 01 FB 6EA CA rce WATT AS SAVE 
O6EF 598 $FAOL_S cTRSTR = W*F 
O6EF 599 OUTLEN = W*LEN,- 
O6EF 600 OUTBUF = WBUFFER,- 
a4 601 PRMLST = 4 s try -$ 
0706 602 FAIL_CHECK 58$ NORMAL 3 check success 
00000000'8F DD 0706 PUSHL ~ #SS$_N 
O8CO'CF 01 FB 070¢ CA ALL LS #1 UTREG. Check 
57 0696'CF DE 0711 603 MOVAL “RS7,R7 ; set good data adr 
A 00 0716 604 MOVL #RS7L,R8 3; set byte count 
0877"CF 00 FB 0719 605 CALLS #0,W*BUF_CHECK > check results 
00 OD 143 606 PUSHL 3 push a dummy param 
O8B6'CF O11 FB 835 607 CALLS REG_SAVE 3; save a reg snapshot 
O2EB'CF O481°CF DE 0725 608 MOVAL ufts? UPAOLP+FAOLS. CTRSTR 3; set new control string 
072c 609 $FAOL_G W*FAOLP try 
Of : 610 FAIL ~CHECK $s$. NORMAL 3; check success 
00000000 ' 8F 7 PUSHL ~ #SS$_NORM 
pece ce 4 FB 7 CAL ts #1 UTREG. CHECK 
0877'CF 0 oe ei) ‘ CALLS #0: b> BUF _CH HECK 3; check results 
bpee gi ; : 
Bree 614 ; test %D and %T directives 
745 615; 
0745 916 3° 
745 = 61 NEXT_TEST 
745 
745 STP15 
0004 'CF F DO 745 MOVL #15,W*CURRENT_TC 
DD 74A PUSHL 
0886 'CF 1 FB St CALLS #1 ,W*REG_SAVE 7 
75 618 SGETTIM_S TIMADR=W°PL8 ; get a binary time 
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SATSSSO9 = SATS SYSTEM SERVICE TESTS (SUCC S.C.) 16-SEP-1984 43:09 VAX/VMS Macro V04-00 Page 2 
v04-000 FAOL TESTS -SEP-1984 t 8a: 4:22: 27 UETP.SRCJSATSSSO9.MAR; 1 ° 28 
75C 619 SASCTIM_S TIMBUF=W*RS8, 
Fee B89 TIMLENSU“ TEER ke it ascii f Lt seri 
3 make asc or result strin 
0322'CF OR ce 0B ef 7 f 6 ¢ MOVC Ap era W*RS8+8+23 3; copy the time parameter . 
O303'CF OB ¢ 779 6 ADDL #11 3; fix the descriptor 
By DD 077 624 PUSHL # ; push a dummy persneter 
08B6'CF 1 Te. oe 625 CALLS #1,W*REG SAVE 3; Save a reg paapene 
OlEF'CF O2FB'CF DE 07 4 g MOVAL  W“PL8,W*PARAM ; set the param List 
78C «6 SFAOL_S CTRSTR = W*FCS8,- 
Bf C 628 UTLEN = W* - 
78C 629 QUTBUF = W°BUFFER,- 
Bre 630 PRMLST = wW*P 3 try _$ 
7A 631 FAIL =CHECK S85. NORMAL 3; check success 
poppegoo" st DD O7A ste #SS$_N 
O8CO'CF 01 FB O7A9 Ls 4) UREG. CHECK 
57 Q30B'CF OD brat O36 MOVAL Gk 3 set good data adr 
58  Q1E3S'CF DO 076 63 MOVL W*TLEN 3; set byte count 
0877'CF 00 FB O7B8 634 CALLS #0 weBUr 3; check results 
O2EB'CF O4B6'CF DE O7BD 635 MOVAL W*FCS UFFADLP+FAOLS. CTRSTR ; set cntrl str address 
00 DD O7C& 636 PUSHL ; push dummy param 
O8B6'CF O01 FB bore 637 #1 ,W*REG_SAVE 3 sy a reg snapshot 
7(CB «638 SFA “FAO ; 
0704 639 PAIL “EHEC ss8_M 3 checl success 
00000000'8F DD 07D4 NISSS-N ORM 
O8CO'CF 01 FB O7DA te #i,W REG. CHECK 
0877'°CF 00 FB O7DF 640 CALLS $0L O° BUF _CHECK 3; check results 
O7E4 641 TEST_END 
O04C'CF DD O7E4 PUSHL W*TMD_ADDR 
0048'CF DD O7E8 PUSHL W*TMN_ ADDR 
02 oD O7EC PUSHL #2 
0044'CF DD O7EE PUSHL W*MOD_ CODE 
00000000 ' GF 04 FB O7F2 CALLS #$$1T1,G*LIBSSIGNAL 
0044'CF 01 1C 01 FO O7F9 INSV #1 WSTSSV_ INHIB_MSG,#1,W*MOD_MSG_CODE 
44'CF DD 0800 PUSHL w* MOD MSG” CODE 
00000000 ' GF 01 FB 0804 CALLS #1,G*SYSSEXIT 
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y04=000 BUF _CHECK eet 8:53:92 VETP.SRCJSATSSSO9.AAR; 1 ° 3, vO4 
B 643 .SBTTL BUF _CHECK 
B 44 ;++ 
B 45 ; FUNCTIONAL DESCRIPTION: 
B o28 3 Routine to check the contents of a buffer against known good 
B 647 ; data. 
ee 
8 49 ; CALLING SEQUENCE: 
ti e290 3 CALLS #0,W*BUF_CHECK ; check buffer 
4 $26 3; INPUT PARAMETERS: 
OB 653; R6 = buffer address 
+43 eee ; = good data address 
8 i R8& = byte count 
BaNe 656 ; 
80B 657 ; OUTPUT PARAMETERS: 
0808 658; NONE 
080B 659 ; 
ts 660 ;-- 
80B 661 
0808 066 BCSD: 
00000050 O080B 66 -LONG 80 
00000813" O80F 664 ADDRESS BCBUF 
081 665 BCBUF 
00000863 081 666 -BLKB 80 
086 667 BCOSD 
00000000 086 668 -LONG 0 
00000813° 0867 669 -ADDRESS BCBUF 
0868 670 PARAM1: 
00000877 pace 671 -BLKL 3 
087 ore . 
0877 673 BUF_CHECK: 
_ O7FC 0877 674 .WOR “M<R2,R3,R4,R5,R6,R7,RB,RI,R1I0> 
59 5o 00 0879 # 675 MOVL R6,R 3 save a copy of the buffer address 
66 67 33 29 087C 676 CMPC3 R8,(R7), (RO) ; check the buffer 
3 13 tt 677 BEQL 3 br ood 
5A E6 AF DE OQO882 678 MOVAL B“PARAM1,R10 3 set parameter pointer 
BA 63) OA 0886 679 MOVZBL (R3),(R10)+ > save bad data 
8A 9 9A tt 680 MOVZBL (R1),(R10)+ 3 save good data 
53 9 C3 O88C 681 SUBL R9,RS, (R10)+ : save byte offset 
5A DBAF ODE Baoe 6 § MOVAL B*PARAM1,R10 : reset address pointer 
894 6 SFAO_S CTRSTR = W*CS6,- 
0894 684 OUTLEN = W*BCOSD,- 
94 685 OUTBUF W*BCSD,- 
94 6 § (R10) +,- 
94 6 
894 688 ; make the string 
B3 AF DF Q8AD 689 PUSHAL B*BCOSD ; push the string variable 
0902'CF 01 FB gB0 690 CALLS #1,W*PRINT_FAIL : print the failure 
8B 691 10$: 
04 0885 692 


RET ; return 


vw 
nnuw 
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zw 
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¥04-000 e Toe Pa Pa tes A 
LSBTTL REG_SAVE 


++ 
FUNCTIONAL DESCRIPTION: 
Subroutine to save R2-R11 in the register save location. 


: CALLING SEQUENCE : 
F PUSHL # ; save a dummy parameter 
; CALLS #1,W*REG_SAVE ; save R2=-R11 


OOOOOCOOOO 
009 Cd C9 C9 CD 09 CO CD00 
DwWOwowwoowaw 
PEARS 


; INPUT PARAMETERS: 
NONE 
OUTPUT PARAMETERS: 
NONE 


REG_SAVE: 
iy «WORD “M<R2,R3,R4,R25,R6,R7,RB,RI,R10,R11> 
NOVCS #4%10,*X14(FP) ,W°REG_SAVE_AREA ; save the registers in the program 


.SBTTL REG_CHECK 


++ 

FUNCTIONAL DESCRIPTION: 
Subroutine to test RO & R2-R11 for press content after a service 
execution. A snapenet is taken by the REG_SAVE routine at the 
beginning of each step and this routine is executed after the 
services have been executed. 


CALLING SEQUENCE: 
PUSHL #SS$_XXXXXX 3; push expected RO contents 
CALLS #1,W*REG_CHECK ; execute this routine 


INPUT PARAMETERS: 
expected RO contents on the stack 


OUTPUT PARAMETERS: 
possible error messages printed using SPUTMSG 


OFFC 
QOOO8'CF 14 AD 28 ee 


DEE EAMONN AIAIWIWIWIPI RPI NINPINIPINONID) S 2 PO OO SM DOOOOOOOCOOCWOWOOOOO 


NNN NN NNN NNN NNSA AOA AO 
SOO NA NE AN 3 OS OD NOAU EWN SO OD NAME WIN 2 0 OO NOAOU EWN 0 OONOU SWAN OVOONOUS 


DS NMVOAA $F FP DOM OOOCOO OO OOOO OOOO OOOOOOO MOMMA AAAAAAAO 


MMMM SC FF SF OMMOOOOOOOOOOAOAOOOOOOOOOOOOOCOWWW 


REG_CHECK: 
OFFC -WORD “M<R2,R3,R4,R5,R6,R7,R8,R9,R1I0,R11> 
50 O4 AC DI CMPL 4(AP) ,RO ; is this the right fail code? 
OE 13 BEQL 10$ ; br if yes 
50 oD PUSHL RO ; push received data 
9% A OD PUSHL 4(AP) ; push expected data 
O1S3°CF ODF PUSHAL W*EXP ; push the string variable 
0902'CF O03 FB 108 ALLS #3,W*PRINT_FAIL ; print the error message 
O008'CF 14 AD 8 4 CMPCS «= #4210,*X14(FP),W*REG_SAVE_AREA  ; check all but RO 
; 4 BEQL 3 br if O.K. 
56 653 008" ; C ? svat #REG_SAVE_AREA,R3,R6 ; calculate the register number 
7E é § 4 ADDB #*X2.R6,-(SP) ; set number past RO-R1 and save 
CA 4 BICL2 #3,R1 : backup to register boundrys 
3 CA 5 BICL #3,R3 


) 
Ee 


— a _ ~ 7 
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¥04=000 REG_CHECK ety b4:33:$4 UETP.SRCJSATSSSO9.MAR; 1 ~ 
61 dD FA = 751 PUSHL (R1) i; push received data 
63 OD Fe 7 § PUSHL (RS) 3 push expected data 
: att DF F 7 PUSHAL W*REG 3; set string pntr param. 
0902‘ CF 4 FB ff 4 : 208 CALLS #4,W*PRINT_FAIL ; print the error message 
04 0901 7 § RET 
, 4 os ~SBTTL PRINT_FAIL 
9 526 ; FUNCTIONAL DESCRIPTION: 
4 £60 3 Subroutine to report failures using SPUTMSG 
$0 166 ; CALLING SEQUENCE: 
9 765 ; Mode #1 PUSHL EXPECTED Mode #2 PUSHL NUMBER 
38 764 ; PUSHL RECEIVED PUSHL EXPECTED 
9 765 ; PUSHAL STRING_VAR PUSHL RECEIVED 
90 £68 $ CALLS #3,W°PRINT_FAIL PUSHAL STRING VAR 
90 767 ; CALLS #4,W*PRINT_FAIL 
90 ros 3; Mode #3 PUSHAL STRING_VAR 
90 6 3 CALLS #1,W*PRINT_FAIL 
090 770 ; 
90 771 ; INPUT PARAMETERS: 
90 re 3 Listed above 
090 773; 
090 774 ; OUTPUT PARAMETERS: 
090 775 ; an error message is printed using SPUTMSG 
090 776; 
090 777 ;-- 
090 778 
090¢ 779 PRINT_FAIL: 
003C 090 780 -WORD “M<R2,R3,R4,R5> 
0904 781 $FAO_S W*CS1,W*MESSAGELW°MSGL ,#TEST_MOD_NAME ,W“SERV_NAME ,W“CURRENT_TC 
O36? 4 t4 SPUTASG_S W*MSGVEC 3 print the atesege 
06 6C 91 #0936 7 CMPB (AP) #4 ; is this a register message? 
260—O «13 oat 784 BEQL 10$ : br yes 
01 6C 91 #O938 785 CMPB (AP) #1 : is this just a message? 
48 13 O93E 786 BEQL ;_br if yes 
940 ree SFAO_S W*CS2,W*MESSAGEL ,W*MSGL,4(AP) ,8( AP) ,4(AP),12(AP) 
40 11 ate oe 108 BRB 30$ ; goto output message 
0961 790 SFAO_S W*CS3,W°*MESSAGEL ,W*MSGL,4(AP),16(AP) ,8(AP) ,4(AP), 16(AP) ,12( AP) 
19 11 0388 44! 208 BRB 30$ 3; goto output message 
O2B3'CF O04 AC 00 $98 498 MOVL 4(AP) ,W*MSGVEC1+12 3 save string address 
O98E 794 SPUTMSG_S W*MSGVEC1 : print the message 
7 44 oe? 308 BRB 40$ ; skip the other message 
pal 799 40s SPUTMSG_S W*MSGVEC : print the message 
O9C6'CF OO FB $03 79 CALLS #0,W*MODE ID $ Sdene tfy the mode 
OO4C'CF  O02A'CF 43 98 00 MOVAL we fest mop FAIL,W*TMD_ADDR ; set failure message address 
0044'CF 03 00 02 y 13 3} Ins #ERROR, #0 ,83,W°MOD_MSG_CODE 3 set severity code 


00000" 
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MODE _ “SEP=1984 04:22:34 


1D UETP.SRCJSATSSSO9.MAR; 1 
+ - -SBTTL MODE_ID 
9¢ gi; FUNCTIONAL DE CRIPTION: 
+: : Subroutine to identify the mode that an exit handler is in. 
9¢ : CALLING, SEQUENCE : 
| 19 $ # »W°MODE_ 1D 
9C 12 : INPUT PARAMETERS: 
ace 135 3 MODE contains an address pointing to an ascii string desc. 
+: I 3 of the current CPU mode. 
366 Ig : OUTPUT PARAMETERS: 
9C6 7” 3 NONE 
aE 
906 0° 
$e 1 MODE_ID: 
003¢ ace § .WORD Rei »R3,R4,R 
09C 8 $FAO_S “C$ Dear SeRcEL, W*MSGL, MODE ; format the error message 
06 bors : : SPUTRSc _S W* mSGVEC 3 print the mode message 


Page 


2 
( 


3) 


SA 
vO 
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1D -SEP-1984 UETP.SRC $S09.MAR; 1 (3) 
9 MOD_MSG_PRINT: | 
4 : PARAAAAASAAAAALALALALALALALLAELSLELSLESLESL ESL ES ESE EEE EE EEE EEE EEE ETE SS | 
5 © # 
OF : : * PRIN’. THE TEST MODULE BEGUN/SUCCESSFUL/FAILED MESSAGES + 
9F ris (USING THE PUTMSG MACRO). + | 
. ® 
ar 5 : pARRAAALAAALALAALALALALALALE ALLELE AEE E EEE REESE ERE ERE E EERE REE EE ER TTS | 
F s 
OF 8 PUTMSG <MOD_MSG_CODE,#2, THN_ADDR, TMD -ADDR> PRINT MSG 
05 OAOE RSB . en RETURN TO CALLER | 
A . io ¢ : 
A F 41 3 Qeeeeeerecerereeeeceeeerereeaaeaeeerarereneeeaeeeeeeereeeereeeeees 
AOF 42; * 
i rk ; CHANGE MODE ROUTINE. THIS ROUTINE GETS CONTROL WHENEVER * | 
AOF 844: * A CMKRNL, CMEXEC, OR CMSUP SYSTEM SERVICE Is. Iss VED * 
AOF 845: * BY THE MODE MACRO ('TO' OPTION). IT MERELY . 
AOF 46 : A JUMP INDIRECT ON A FIELD SET UP BY MODE. Ao e 
AOF 847: * THE EFFECT OF RETURNING TO THE END OF THE MODE * 
AOE 48 : MACRO EXPANSION. e 
A F 50 : tARRAAAAAAALALALALALLELALALALARASLAERASLERE REESE SEER EEE EERE EERE RRR RRR RAE SG 
AOF 51; 
0099 AOF 85¢ 
00000059'FF 1 oait 853 
Al? 835 i RET INSTR WILL BE ISSUED IN EXPANSION OF "MODE FROM, ...." MACRO 
OA17—s 857 * .END  SATSSS09 


-WORD 0 ; ENTRY MASK 

JMP @CHM_CONT ; RETURN TO MODE MACRO IN NEW MODE 
| 
| 


UETP.SRCJSATSSSO9.MAR; 1 
02 
02 
02 
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SATSSSO9 - SATS SYSTEM SERVICE TESTS (suce $.C.) 19360-1986 9} :$3:09 AX/VMS 
Psect synopsis “SEP-1984 04:22:54 (CUETP.SRC 


goes e tem cenrweence % 


! Psect synopsis ! 


Goeewooeceoceecoocece> 


PSECT name Allocation PSECT No. Attributes 


- ABS . ( -) 00 ¢ 0.) NOPIC USR CON ABS LCL NOSHR NOEXE —_ 
SABSS ( -) Q1 ¢ 1.) NOPIC USR CON ABS LCL NOSHR EXE 
RODATA ( 1712.) § ( ¢°; NOPIC USR CON REL LCL NOSHR NOEXE 
RWDATA ae ( $0 ) -) NOPIC USR CON REL LCL NOSHR NOEXE 
SATSSSO9 000 ( 25835.) 04 ¢ 4.) NOPIC USR CON REL LCL NOSHR EXE 

pan mn we eee ee eee ee ee oe 


! Per formance indicators ! 
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Phase Page faults CPU Time Elapsed Time 


Initialization : 00:00:00.07 :00:00.71 
pennege processing } 7 3 9 +$¢ ¥ : £92 
Syabol table sort :00:00.43 0:00:00.66 
Pass 2 21 :00:03.4 0:00:08.74 
Symbol table output 21 :00:00.1 0:00:00.44 
Psect synopsis output 3 : 8 .0 0:00:00.03 
Cross-reference output 0:00:00.0 0:00:00. 

Assembler run totals 771 0:00:15.0 0:00:37. 


The working set Limit was 1090 pages. 

86582 ~ bog 5" 0 pages) of virtual memory were used to buffer the intermediate code. 

There were 20 pages of symbol table space allocated to hold 324 non-local and 7 Local symbols. 
857 source tinge were read in Pass 1, producing 34 object records in Pass 2. 

44 pages of virtual memory were used to define 36 macros. 


Macro Library name Macros defined 


5 ~$52250U {ES YSL IBIS TARLET MLB; 2 2 
S0UA : CUETP.OBJJUET p-MLB; 4 1 
~$532$0U iESYSLIBISTARLET- ALB;2 
Tete att: libraries) 
498 GETS were required to define 32 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=LIS$:SATSSSO9/0BJ=0BJ$:SATSSSO9 MSRC$:SATSSSO9/UPDATE=(ENHS: SATSSSO9) *EXECMLS$/LIB+LIB$:UETP/LIB 
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